// InsertItem event - Occurs after a new item has been inserted to Items collection.
void __fastcall TForm1::ComboBox1InsertItem(TObject *Sender, Excomboboxlib_tlb::HITEM   Item)
{
	TVariant i = TVariant(ComboBox1->FormatABC(L"value + 1",ComboBox1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
	ComboBox1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
}

ComboBox1->BeginUpdate();
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Col-1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Col-2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Check");
	var_Column2->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column2->DisplayFilterButton = true;
	var_Column2->DisplayFilterPattern = false;
	var_Column2->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exCheck;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Image");
	var_Column3->DisplayFilterButton = true;
	var_Column3->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exImage;
	var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"Pos");
	var_Column4->AllowSizing = false;
	var_Column4->AllowSort = false;
	var_Column4->Width = 32;
	var_Column4->FormatColumn = L"1 apos ``";
	var_Column4->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
	long h = var_Items->AddItem(TVariant("Item B"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
	var_Items->set_CellState(TVariant(h),TVariant(2),1);
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
ComboBox1->FilterBarFont = (IFontDisp*)(ComboBox1->Font);
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(ComboBox1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
ComboBox1->FilterBarCaption = TVariant(String("(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( ava") +
	"ilable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `" +
	"` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount" +
	" + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))");
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Excomboboxlib_tlb::IColumnPtr var_Column5 = ComboBox1->Columns->get_Item(TVariant(0));
	var_Column5->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
	var_Column5->Filter = L"Item A|Item B";
ComboBox1->Columns->get_Item(TVariant(2))->Filter = L"1";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();

// InsertItem event - Occurs after a new item has been inserted to Items collection.
void __fastcall TForm1::ComboBox1InsertItem(TObject *Sender, Excomboboxlib_tlb::HITEM   Item)
{
	TVariant i = TVariant(ComboBox1->FormatABC(L"value + 1",ComboBox1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
	ComboBox1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
}

ComboBox1->BeginUpdate();
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Col-1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Col-2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Check");
	var_Column2->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column2->DisplayFilterButton = true;
	var_Column2->DisplayFilterPattern = false;
	var_Column2->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exCheck;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Image");
	var_Column3->DisplayFilterButton = true;
	var_Column3->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exImage;
	var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"Pos");
	var_Column4->AllowSizing = false;
	var_Column4->AllowSort = false;
	var_Column4->Width = 32;
	var_Column4->FormatColumn = L"1 apos ``";
	var_Column4->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
	long h = var_Items->AddItem(TVariant("Item B"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
	var_Items->set_CellState(TVariant(h),TVariant(2),1);
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
ComboBox1->FilterBarFont = (IFontDisp*)(ComboBox1->Font);
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(ComboBox1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
ComboBox1->FilterBarCaption = L"value + ` ` + available";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Excomboboxlib_tlb::IColumnPtr var_Column5 = ComboBox1->Columns->get_Item(TVariant(0));
	var_Column5->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
	var_Column5->Filter = L"Item A|Item B";
ComboBox1->Columns->get_Item(TVariant(2))->Filter = L"1";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();

// InsertItem event - Occurs after a new item has been inserted to Items collection.
void __fastcall TForm1::ComboBox1InsertItem(TObject *Sender, Excomboboxlib_tlb::HITEM   Item)
{
	TVariant i = TVariant(ComboBox1->FormatABC(L"value + 1",ComboBox1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
	ComboBox1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
}

ComboBox1->BeginUpdate();
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Col-1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Col-2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Check");
	var_Column2->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column2->DisplayFilterButton = true;
	var_Column2->DisplayFilterPattern = false;
	var_Column2->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exCheck;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Image");
	var_Column3->DisplayFilterButton = true;
	var_Column3->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exImage;
	var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"Pos");
	var_Column4->AllowSizing = false;
	var_Column4->AllowSort = false;
	var_Column4->Width = 32;
	var_Column4->FormatColumn = L"1 apos ``";
	var_Column4->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
	long h = var_Items->AddItem(TVariant("Item B"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
	var_Items->set_CellState(TVariant(h),TVariant(2),1);
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
ComboBox1->FilterBarFont = (IFontDisp*)(ComboBox1->Font);
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(ComboBox1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
ComboBox1->FilterBarCaption = TVariant(String("(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace ") +
	"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" +
	"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" +
	"nt + ` item(s)`) )))");
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Excomboboxlib_tlb::IColumnPtr var_Column5 = ComboBox1->Columns->get_Item(TVariant(0));
	var_Column5->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
	var_Column5->Filter = L"Item A|Item B";
ComboBox1->Columns->get_Item(TVariant(2))->Filter = L"1";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();

// InsertItem event - Occurs after a new item has been inserted to Items collection.
void __fastcall TForm1::ComboBox1InsertItem(TObject *Sender, Excomboboxlib_tlb::HITEM   Item)
{
	TVariant i = TVariant(ComboBox1->FormatABC(L"value + 1",ComboBox1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
	ComboBox1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
}

ComboBox1->BeginUpdate();
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Col-1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Col-2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Check");
	var_Column2->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column2->DisplayFilterButton = true;
	var_Column2->DisplayFilterPattern = false;
	var_Column2->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exCheck;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Image");
	var_Column3->DisplayFilterButton = true;
	var_Column3->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exImage;
	var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"Pos");
	var_Column4->AllowSizing = false;
	var_Column4->AllowSort = false;
	var_Column4->Width = 32;
	var_Column4->FormatColumn = L"1 apos ``";
	var_Column4->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
	long h = var_Items->AddItem(TVariant("Item B"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
	var_Items->set_CellState(TVariant(h),TVariant(2),1);
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
ComboBox1->FilterBarFont = (IFontDisp*)(ComboBox1->Font);
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(ComboBox1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
ComboBox1->FilterBarCaption = L"allui";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Excomboboxlib_tlb::IColumnPtr var_Column5 = ComboBox1->Columns->get_Item(TVariant(0));
	var_Column5->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
	var_Column5->Filter = L"Item A|Item B";
ComboBox1->Columns->get_Item(TVariant(2))->Filter = L"1";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();

// InsertItem event - Occurs after a new item has been inserted to Items collection.
void __fastcall TForm1::ComboBox1InsertItem(TObject *Sender, Excomboboxlib_tlb::HITEM   Item)
{
	TVariant i = TVariant(ComboBox1->FormatABC(L"value + 1",ComboBox1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
	ComboBox1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
}

ComboBox1->BeginUpdate();
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Col-1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Col-2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Check");
	var_Column2->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column2->DisplayFilterButton = true;
	var_Column2->DisplayFilterPattern = false;
	var_Column2->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exCheck;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Image");
	var_Column3->DisplayFilterButton = true;
	var_Column3->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exImage;
	var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"Pos");
	var_Column4->AllowSizing = false;
	var_Column4->AllowSort = false;
	var_Column4->Width = 32;
	var_Column4->FormatColumn = L"1 apos ``";
	var_Column4->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
	long h = var_Items->AddItem(TVariant("Item B"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
	var_Items->set_CellState(TVariant(h),TVariant(2),1);
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
ComboBox1->FilterBarFont = (IFontDisp*)(ComboBox1->Font);
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(ComboBox1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
ComboBox1->FilterBarCaption = TVariant(String("(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[") +
	"<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchi" +
	"temcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount" +
	" + ` item(s)`) )))");
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Excomboboxlib_tlb::IColumnPtr var_Column5 = ComboBox1->Columns->get_Item(TVariant(0));
	var_Column5->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
	var_Column5->Filter = L"Item A|Item B";
ComboBox1->Columns->get_Item(TVariant(2))->Filter = L"1";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();

// InsertItem event - Occurs after a new item has been inserted to Items collection.
void __fastcall TForm1::ComboBox1InsertItem(TObject *Sender, Excomboboxlib_tlb::HITEM   Item)
{
	TVariant i = TVariant(ComboBox1->FormatABC(L"value + 1",ComboBox1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
	ComboBox1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
}

ComboBox1->BeginUpdate();
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Col-1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Col-2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Check");
	var_Column2->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column2->DisplayFilterButton = true;
	var_Column2->DisplayFilterPattern = false;
	var_Column2->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exCheck;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Image");
	var_Column3->DisplayFilterButton = true;
	var_Column3->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exImage;
	var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"Pos");
	var_Column4->AllowSizing = false;
	var_Column4->AllowSort = false;
	var_Column4->Width = 32;
	var_Column4->FormatColumn = L"1 apos ``";
	var_Column4->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
	long h = var_Items->AddItem(TVariant("Item B"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
	var_Items->set_CellState(TVariant(h),TVariant(2),1);
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
ComboBox1->FilterBarFont = (IFontDisp*)(ComboBox1->Font);
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(ComboBox1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
ComboBox1->FilterBarCaption = L"all";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Excomboboxlib_tlb::IColumnPtr var_Column5 = ComboBox1->Columns->get_Item(TVariant(0));
	var_Column5->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
	var_Column5->Filter = L"Item A|Item B";
ComboBox1->Columns->get_Item(TVariant(2))->Filter = L"1";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->BackColorAlternate = RGB(240,240,240);
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exAllLines;
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(ComboBox1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
ComboBox1->FilterBarCaption = TVariant(String("(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace ") +
	"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" +
	"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" +
	"nt + ` item(s)`) )))");
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseIfRequired | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
ComboBox1->FilterBarPromptType = Excomboboxlib_tlb::FilterPromptEnum::exFilterPromptContainsAny;
Excomboboxlib_tlb::IConditionalFormatsPtr var_ConditionalFormats = ComboBox1->ConditionalFormats;
	var_ConditionalFormats->Add(L"%0 like `*parent*`",TVariant("parent"))->BackColor = RGB(192,192,192);
	Excomboboxlib_tlb::IConditionalFormatPtr var_ConditionalFormat = var_ConditionalFormats->Add(L"%0 like `*child*`",TVariant("child"));
		var_ConditionalFormat->ForeColor = RGB(255,128,128);
		var_ConditionalFormat->ApplyTo = Excomboboxlib_tlb::FormatApplyToEnum::exFormatToColumns;
	Excomboboxlib_tlb::IConditionalFormatPtr var_ConditionalFormat1 = var_ConditionalFormats->Add(L"%0 like `*B*`",TVariant("b"));
		var_ConditionalFormat1->ForeColor = RGB(0,0,255);
		var_ConditionalFormat1->Bold = true;
		var_ConditionalFormat1->Italic = true;
		var_ConditionalFormat1->ApplyTo = Excomboboxlib_tlb::FormatApplyToEnum::exFormatToColumns;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
	Excomboboxlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Value");
		var_Column->Width = 128;
		var_Column->HTMLCaption = L"<b>VA</b><r>sko";
	Excomboboxlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"APos");
		var_Column1->FormatColumn = L"0 apos ``";
		var_Column1->AllowSort = false;
		var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320));
		var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellForeColor,TVariant(8421504));
		var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exHeaderForeColor,TVariant(var_Column1->get_Def(Excomboboxlib_tlb::DefColumnEnum::exCellForeColor)));
		var_Column1->Position = 0;
	Excomboboxlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"RPos");
		var_Column2->FormatColumn = L"0 rpos ``";
		var_Column2->AllowSort = false;
		var_Column2->Position = 1;
	Excomboboxlib_tlb::IColumnPtr var_Column3 = var_Columns->Add(L"Index");
		var_Column3->FormatColumn = L"0 index ``";
		var_Column3->DisplayFilterButton = true;
		var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
		var_Column3->Position = 2;
	Excomboboxlib_tlb::IColumnPtr var_Column4 = var_Columns->Add(L"Data 1");
		var_Column4->FormatColumn = L"0 index `A-Z`";
		var_Column4->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	Excomboboxlib_tlb::IColumnPtr var_Column5 = var_Columns->Add(L"Data 2");
		var_Column5->FormatColumn = L"0 index `AB` replace `A` with `<off -4>A</off>`";
		var_Column5->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(false));
		var_Column5->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
		var_Column5->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasRadioButton,TVariant(true));
	Excomboboxlib_tlb::IColumnPtr var_Column6 = var_Columns->Add(L"Data 3");
		var_Column6->FormatColumn = L"0 index `CDC` replace `D` with `<b>D</b>`";
		var_Column6->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("ParentA"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child A"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child B"));
	var_Items->set_CellState(TVariant(h),TVariant(4),1);
	var_Items->set_CellBackColor(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child C"))),TVariant(5),RGB(0,255,0));
	var_Items->set_ExpandItem(h,true);
	var_Items->AddItem(TVariant("Item A"));
	h = var_Items->AddItem(TVariant("ParentB"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_CellBackColor(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"))),TVariant(5),RGB(0,255,0));
	var_Items->set_CellState(TVariant(h),TVariant(5),1);
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
	var_Items->AddItem(TVariant("Item D"));
	var_Items->set_ExpandItem(h,true);
ComboBox1->EndUpdate();
String sFile = "c:/temp/export.html";
ComboBox1->Export(TVariant(sFile),TVariant("vis"));
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft Internet Controls

	TypeLib: ieframe.dll

	to define the namespace: Shdocvw_tlb
*/
//#include "SHDOCVW_TLB.h"
Shdocvw_tlb::IWebBrowser2Ptr var_ShellBrowserWindow = Variant::CreateObject(L"InternetExplorer.Application");
	var_ShellBrowserWindow->Navigate2(sFile,TNoParam(),TNoParam(),TNoParam(),TNoParam());

ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->BackColorAlternate = RGB(240,240,240);
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exAllLines;
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(ComboBox1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
ComboBox1->FilterBarCaption = TVariant(String("(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace ") +
	"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" +
	"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" +
	"nt + ` item(s)`) )))");
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseIfRequired | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
ComboBox1->FilterBarPromptType = Excomboboxlib_tlb::FilterPromptEnum::exFilterPromptContainsAny;
Excomboboxlib_tlb::IConditionalFormatsPtr var_ConditionalFormats = ComboBox1->ConditionalFormats;
	var_ConditionalFormats->Add(L"%0 like `*parent*`",TVariant("parent"))->BackColor = RGB(192,192,192);
	Excomboboxlib_tlb::IConditionalFormatPtr var_ConditionalFormat = var_ConditionalFormats->Add(L"%0 like `*child*`",TVariant("child"));
		var_ConditionalFormat->ForeColor = RGB(255,128,128);
		var_ConditionalFormat->ApplyTo = Excomboboxlib_tlb::FormatApplyToEnum::exFormatToColumns;
	Excomboboxlib_tlb::IConditionalFormatPtr var_ConditionalFormat1 = var_ConditionalFormats->Add(L"%0 like `*B*`",TVariant("b"));
		var_ConditionalFormat1->ForeColor = RGB(0,0,255);
		var_ConditionalFormat1->Bold = true;
		var_ConditionalFormat1->Italic = true;
		var_ConditionalFormat1->ApplyTo = Excomboboxlib_tlb::FormatApplyToEnum::exFormatToColumns;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
	Excomboboxlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Value");
		var_Column->Width = 128;
		var_Column->HTMLCaption = L"<b>VA</b><r>sko";
	Excomboboxlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"APos");
		var_Column1->FormatColumn = L"0 apos ``";
		var_Column1->AllowSort = false;
		var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320));
		var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellForeColor,TVariant(8421504));
		var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exHeaderForeColor,TVariant(var_Column1->get_Def(Excomboboxlib_tlb::DefColumnEnum::exCellForeColor)));
		var_Column1->Position = 0;
	Excomboboxlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"RPos");
		var_Column2->FormatColumn = L"0 rpos ``";
		var_Column2->AllowSort = false;
		var_Column2->Position = 1;
	Excomboboxlib_tlb::IColumnPtr var_Column3 = var_Columns->Add(L"Index");
		var_Column3->FormatColumn = L"0 index ``";
		var_Column3->DisplayFilterButton = true;
		var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
		var_Column3->Position = 2;
	Excomboboxlib_tlb::IColumnPtr var_Column4 = var_Columns->Add(L"Data 1");
		var_Column4->FormatColumn = L"0 index `A-Z`";
		var_Column4->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	Excomboboxlib_tlb::IColumnPtr var_Column5 = var_Columns->Add(L"Data 2");
		var_Column5->FormatColumn = L"0 index `AB` replace `A` with `<off -4>A</off>`";
		var_Column5->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(false));
		var_Column5->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
		var_Column5->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasRadioButton,TVariant(true));
	Excomboboxlib_tlb::IColumnPtr var_Column6 = var_Columns->Add(L"Data 3");
		var_Column6->FormatColumn = L"0 index `CDC` replace `D` with `<b>D</b>`";
		var_Column6->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("ParentA"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child A"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child B"));
	var_Items->set_CellState(TVariant(h),TVariant(4),1);
	var_Items->set_CellBackColor(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child C"))),TVariant(5),RGB(0,255,0));
	var_Items->set_ExpandItem(h,true);
	var_Items->AddItem(TVariant("Item A"));
	h = var_Items->AddItem(TVariant("ParentB"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_CellBackColor(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"))),TVariant(5),RGB(0,255,0));
	var_Items->set_CellState(TVariant(h),TVariant(5),1);
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
	var_Items->AddItem(TVariant("Item D"));
	var_Items->set_ExpandItem(h,true);
ComboBox1->EndUpdate();
OutputDebugString( PChar(ComboBox1->Export(TVariant(""),TVariant("vis"))) );

ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::Simple;
ComboBox1->TreeColumnIndex = -1;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exAllLines;
ComboBox1->GridLineStyle = Excomboboxlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
ComboBox1->BackColorAlternate = RGB(240,240,240);
ComboBox1->ShowFocusRect = false;
ComboBox1->SingleEdit = true;
ComboBox1->SearchColumnIndex = 1;
ComboBox1->AdjustSearchColumn = false;
ComboBox1->HeaderVisible = false;
ComboBox1->Columns->Add(L"Default");
ComboBox1->Columns->Add(L"Select")->Visible = false;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("before item"))),TVariant(1),TVariant("before"));
	long h = var_Items->AddItem(TVariant("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3"));
	var_Items->set_CellCaptionFormat(TVariant(h),TVariant(0),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
	var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Excomboboxlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Bank Account"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("after item"))),TVariant(1),TVariant("after"));
ComboBox1->Select[TVariant(1)] = TVariant("after");
ComboBox1->EndUpdate();

// AnchorClick event - Occurs when an anchor element is clicked.
void __fastcall TForm1::ComboBox1AnchorClick(TObject *Sender, BSTR   AnchorID, BSTR   Options)
{
	OutputDebugString( L"AnchorID" );
}

ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::Simple;
ComboBox1->TreeColumnIndex = -1;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exAllLines;
ComboBox1->GridLineStyle = Excomboboxlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
ComboBox1->BackColorAlternate = RGB(240,240,240);
ComboBox1->ShowFocusRect = false;
ComboBox1->SingleEdit = true;
ComboBox1->SearchColumnIndex = 1;
ComboBox1->AdjustSearchColumn = false;
ComboBox1->HeaderVisible = false;
ComboBox1->Columns->Add(L"Default");
ComboBox1->Columns->Add(L"Select")->Visible = false;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("before item"))),TVariant(1),TVariant("before"));
	long h = var_Items->AddItem(TVariant(String("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4Aj") +
	"MGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEB" +
	"A==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DAB" +
	"vABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>	" +
	"650;</a><br>+ withdraw(amount: Currency)"));
	var_Items->set_CellCaptionFormat(TVariant(h),TVariant(0),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
	var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Excomboboxlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Bank Account"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("after item"))),TVariant(1),TVariant("after"));
ComboBox1->Select[TVariant(1)] = TVariant("after");
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExComboBox\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->ScrollBySingleLine = true;
ComboBox1->AutoDrag = Excomboboxlib_tlb::AutoDragEnum::exAutoDragScrollOnShortTouch | Excomboboxlib_tlb::AutoDragEnum::exAutoDragScroll;
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"P1");
	var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->PartialCheck = true;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Root"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
ComboBox1->RightToLeft = true;
ComboBox1->EndUpdate();

ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
ComboBox1->AutoComplete = false;
ComboBox1->Columns->Add(L"Column 1")->Prompt = L"<img>1</img><i><fgcolor=808080>type to search</fgcolor></i>";
ComboBox1->Items->AddItem(TVariant(0));
ComboBox1->Items->AddItem(TVariant(1));
ComboBox1->Items->AddItem(TVariant(2));

ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"P1");
	var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->PartialCheck = true;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"P2");
	var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column1->PartialCheck = true;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Root"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);

ComboBox1->BeginUpdate();
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->SingleSel = false;
ComboBox1->SingleEdit = true;
ComboBox1->LabelColumnIndex = 0;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
	var_Columns->Add(L"Column");
	var_Columns->Add(L"Sub-Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 1"))),TVariant(1),TVariant("SubItem 1.1"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 2"))),TVariant(1),TVariant("SubItem 2.1"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 3"))),TVariant(1),TVariant("SubItem 3.1"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 4"))),TVariant(1),TVariant("SubItem 4.1"));
	var_Items->set_SelectItem(var_Items->get_ItemByIndex(1),true);
	var_Items->set_SelectItem(var_Items->get_ItemByIndex(3),true);
ComboBox1->EndUpdate();

ComboBox1->RightToLeft = true;
ComboBox1->ItemsAllowSizing = Excomboboxlib_tlb::ItemsAllowSizingEnum::exResizeItem;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exHLines;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->ScrollBySingleLine = true;
ComboBox1->DefaultItemHeight = 64;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
	var_Column->Alignment = Excomboboxlib_tlb::AlignmentEnum::RightAlignment;
	var_Column->HeaderAlignment = Excomboboxlib_tlb::AlignmentEnum::RightAlignment;
	var_Column->EditAlignment = Excomboboxlib_tlb::AlignmentEnum::RightAlignment;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TVariant("Item 1"));
	var_Items->set_ItemHeight(var_Items->InsertItem(var_Items->AddItem(TVariant("Parent")),TNoParam(),TVariant("Item 2")),48);
	var_Items->AddItem(TVariant("Item 3"));
	var_Items->set_ExpandItem(var_Items->get_ItemByIndex(1),true);

ComboBox1->ToolTipDelay = 1;
ComboBox1->ToolTipWidth = 364;
ComboBox1->Columns->Add(L"tootip")->ToolTip = L"<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>column</fgcolor>";

ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
ComboBox1->Columns->Add(L"Default")->Width = 512;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TVariant(String("Exontrol is devoted to create innovative user interface components for Windows applications, on COM or .NET platforms, since 19") +
	"99. \"eXontrol\" comes from e(s)pecial (c)ontrol, where sc makes the X. We are a vendor not a reseller, and this is the single s" +
	"ite where you can try or buy our products. If you are tired of looking for \"powerful\" components now it's time to show you rea" +
	"l components. No registration required, no nag screens, no limitations, unlimited evaluation time."));
	var_Items->AddItem(TVariant(String("A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and a single-line textbox, allowin") +
	"g the user either to type a value directly into the control or choose from the list of existing options."));
ComboBox1->EndUpdate();

ComboBox1->Columns->Add(L"Column");
ComboBox1->Items->AddItem(TVariant(0));
ComboBox1->PutItems(ComboBox1->GetItems(TVariant(0)),TNoParam());
ComboBox1->Items->AddItem(TVariant(1));
ComboBox1->PutItems(ComboBox1->GetItems(TVariant(0)),TNoParam());
ComboBox1->Items->AddItem(TVariant(2));
ComboBox1->PutItems(ComboBox1->GetItems(TVariant(0)),TNoParam());
ComboBox1->Items->AddItem(TVariant(3));

ComboBox1->Columns->Add(L"Column");
ComboBox1->Items->AddItem(TVariant(0));
ComboBox1->PutItems(ComboBox1->GetItems(TVariant(0)),TNoParam());

OutputDebugString( Variant::CreateObject(L"DAO.DBEngine.35")->Version->Version );
OutputDebugString( Variant::CreateObject(L"DAO.DBEngine.36")->Version->Version );
OutputDebugString( Variant::CreateObject(L"DAO.DBEngine.120")->Version->Version );

OutputDebugString( L"ADO Version:" );
OutputDebugString( Variant::CreateObject(L"ADODB.Connection")->Version->Version );

ComboBox1->BeginUpdate();
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->HeaderHeight = 24;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->AutoDrag = Excomboboxlib_tlb::AutoDragEnum::exAutoDragPositionAny;
ComboBox1->SingleSel = false;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exRowLines;
ComboBox1->GridLineStyle = Excomboboxlib_tlb::GridLinesStyleEnum::exGridLinesSolid;
ComboBox1->ConditionalFormats->Add(L"%CC0 and %CX0",TNoParam())->Bold = true;
Excomboboxlib_tlb::IConditionalFormatPtr var_ConditionalFormat = ComboBox1->ConditionalFormats->Add(L"1",TNoParam());
	var_ConditionalFormat->Bold = true;
	var_ConditionalFormat->ApplyTo = Excomboboxlib_tlb::FormatApplyToEnum(0x2);
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Description");
	var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->PartialCheck = true;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Index");
	var_Column1->FormatColumn = L"1 index ``";
	var_Column1->Position = 0;
	var_Column1->Width = 16;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Root-Index");
	var_Column2->FormatColumn = L"root(1 index ``)";
	var_Column2->Position = 1;
	var_Column2->Width = 32;
	var_Column2->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320));
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Root-Value");
	var_Column3->FormatColumn = L"root(%0)";
	var_Column3->Position = 2;
	var_Column3->Width = 32;
	var_Column3->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2")),TNoParam(),TVariant("Sub-Child 2"));
	var_Items->set_CellState(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"))),TVariant(0),1);
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
	var_Items->set_ExpandItem(h,true);
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->HeaderHeight = 24;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->AutoDrag = Excomboboxlib_tlb::AutoDragEnum::exAutoDragPositionAny;
ComboBox1->SingleSel = false;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exRowLines;
ComboBox1->GridLineStyle = Excomboboxlib_tlb::GridLinesStyleEnum::exGridLinesSolid;
ComboBox1->ConditionalFormats->Add(L"%CC0 and %CX0",TNoParam())->Bold = true;
Excomboboxlib_tlb::IConditionalFormatPtr var_ConditionalFormat = ComboBox1->ConditionalFormats->Add(L"1",TNoParam());
	var_ConditionalFormat->Bold = true;
	var_ConditionalFormat->ApplyTo = Excomboboxlib_tlb::FormatApplyToEnum(0x2);
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Description");
	var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->PartialCheck = true;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Index");
	var_Column1->FormatColumn = L"1 index `I`";
	var_Column1->Position = 0;
	var_Column1->Width = 16;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Parent-Index");
	var_Column2->FormatColumn = L"parent(1 index `I`)";
	var_Column2->Position = 1;
	var_Column2->Width = 32;
	var_Column2->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320));
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Parent-Value");
	var_Column3->FormatColumn = L"parent(%0)";
	var_Column3->Position = 2;
	var_Column3->Width = 32;
	var_Column3->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2")),TNoParam(),TVariant("Sub-Child 2"));
	var_Items->set_CellState(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"))),TVariant(0),1);
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
	var_Items->set_ExpandItem(h,true);
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IAppearancePtr var_Appearance = ComboBox1->VisualAppearance;
	var_Appearance->RenderType = -1;
	var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZO") +
	"iwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYRe" +
	"WAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI="));
	var_Appearance->Add(2,TVariant("CP:1 -2 0 0 0"));
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exAllLines;
ComboBox1->GridLineStyle = Excomboboxlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
ComboBox1->ShowFocusRect = false;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x2000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x2000001;
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->HeaderHeight = 24;
ComboBox1->HeaderVisible = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"1st col");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->Filter = L"Item B";
	var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
ComboBox1->Columns->Add(L"2nd col");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();

// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::ComboBox1MouseMove(TObject *Sender, short   Button, short   Shift, int   X, int   Y)
{
	ComboBox1->ShowToolTip(PChar(ComboBox1->ColumnFromPoint[-1,-1]),TVariant(""),TNoParam(),TVariant("+8"),TVariant("+8"));
}

ComboBox1->BeginUpdate();
ComboBox1->SortBarVisible = true;
ComboBox1->SortBarCaption = L"<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)";
ComboBox1->HeaderEnabled = false;
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->Columns->Add(L"Index")->FormatColumn = L"1 index ``";
ComboBox1->Columns->Add(L"Pos")->FormatColumn = L"1 apos ``";
ComboBox1->Columns->Add(L"Edit");
ComboBox1->GridLineStyle = Excomboboxlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exVLines;
ComboBox1->EndUpdate();

ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exScrollHoverAll] = RGB(1,0,0);

ComboBox1->BeginUpdate();
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->HeaderHeight = 24;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exRowLines;
ComboBox1->Columns->Add(L"Country")->ShowIdem = L" ";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TVariant("Spain"));
	var_Items->AddItem(TVariant("Spain"));
	var_Items->AddItem(TVariant("Spain"));
	var_Items->AddItem(TVariant("Spain"));
	var_Items->AddItem(TVariant("Germany"));
	var_Items->AddItem(TVariant("Germany"));
	var_Items->AddItem(TVariant("Germany"));
	var_Items->AddItem(TVariant("Germany"));
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->HeaderHeight = 24;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exRowLines;
ComboBox1->Columns->Add(L"Country")->ShowIdem = L"<fgcolor gray>〃";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TVariant("Spain"));
	var_Items->AddItem(TVariant("Spain"));
	var_Items->AddItem(TVariant("Spain"));
	var_Items->AddItem(TVariant("Spain"));
	var_Items->AddItem(TVariant("Germany"));
	var_Items->AddItem(TVariant("Germany"));
	var_Items->AddItem(TVariant("Germany"));
	var_Items->AddItem(TVariant("Germany"));
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft Office 15.0 Access database engine Object Library

	TypeLib: ACEDAO.DLL

	to define the namespace: Dao_tlb
*/
//#include "DAO_TLB.h"
Dao_tlb::_DBEnginePtr var_PrivDBEngine = Variant::CreateObject(L"DAO.DBEngine.120");
	Dao_tlb::Recordset2Ptr rs = var_PrivDBEngine->OpenDatabase(L"C:\\Program Files\\Exontrol\\ExComboBox\\Sample\\Access\\sample.mdb",TNoParam(),TNoParam(),TNoParam())->OpenRecordset(L"Orders",TNoParam(),TNoParam(),TNoParam());
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->set_Value(TVariant(10248));
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft DAO 3.6 Object Library

	TypeLib: dao360.dll

	to define the namespace: Dao_tlb
*/
//#include "DAO_TLB.h"
Dao_tlb::_DBEnginePtr var_PrivDBEngine = Variant::CreateObject(L"DAO.DBEngine.36");
	Dao_tlb::RecordsetPtr rs = var_PrivDBEngine->OpenDatabase(L"C:\\Program Files\\Exontrol\\ExComboBox\\Sample\\Access\\sample.mdb",TNoParam(),TNoParam(),TNoParam())->OpenRecordset(L"Orders",TNoParam(),TNoParam(),TNoParam());
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->set_Value(TVariant(10248));
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft Office 15.0 Access database engine Object Library

	TypeLib: ACEDAO.DLL

	to define the namespace: Dao_tlb
*/
//#include "DAO_TLB.h"
Dao_tlb::_DBEnginePtr var_PrivDBEngine = Variant::CreateObject(L"DAO.DBEngine.120");
	Dao_tlb::Recordset2Ptr rs = var_PrivDBEngine->OpenDatabase(L"C:\\Program Files\\Exontrol\\ExComboBox\\Sample\\Access\\sample.accdb",TNoParam(),TNoParam(),TNoParam())->OpenRecordset(L"Orders",TNoParam(),TNoParam(),TNoParam());
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->set_Value(TVariant(10248));
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IAppearancePtr var_Appearance = ComboBox1->VisualAppearance;
	var_Appearance->Add(1,TVariant("XP:Window 19 1"));
	var_Appearance->Add(2,TVariant("XP:Window 19 3"));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exClearButtonUp] = 0x1000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exClearButtonDown] = 0x2000000;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->HeaderVisible = false;
ComboBox1->IntegralHeight = true;
ComboBox1->ShowClearButton = 1;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TVariant("Zero"));
	var_Items->AddItem(TVariant("One"));
	var_Items->AddItem(TVariant("Two"));
ComboBox1->Select[TVariant(0)] = TVariant("Zero");
ComboBox1->EndUpdate();

ComboBox1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
ComboBox1->VisualAppearance->Add(2,TVariant("c:\\exontrol\\images\\pushed.ebn"));
ComboBox1->RadioImage[false] = 16777216;
ComboBox1->RadioImage[true] = 33554432;
ComboBox1->Columns->Add(L"Radio")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasRadioButton,TVariant(true));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TVariant("Radio 1"));
	var_Items->set_CellState(TVariant(var_Items->AddItem(TVariant("Radio 2"))),TVariant(0),1);
	var_Items->AddItem(TVariant("Radio 3"));

ComboBox1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
ComboBox1->VisualAppearance->Add(2,TVariant("c:\\exontrol\\images\\pushed.ebn"));
ComboBox1->CheckImage[Excomboboxlib_tlb::CheckStateEnum::Unchecked] = 16777216;
ComboBox1->CheckImage[Excomboboxlib_tlb::CheckStateEnum::Checked] = 33554432;
ComboBox1->Columns->Add(L"Check")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TVariant("Check 1"));
	var_Items->set_CellState(TVariant(var_Items->AddItem(TVariant("Check 2"))),TVariant(0),1);

ComboBox1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
ComboBox1->VisualAppearance->Add(2,TVariant("c:\\exontrol\\images\\pushed.ebn"));
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesAtRoot;
ComboBox1->HasButtons = Excomboboxlib_tlb::ExpandButtonEnum::exCustom;
ComboBox1->HasButtonsCustom[false] = 16777216;
ComboBox1->HasButtonsCustom[true] = 33554432;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child"));

ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesAtRoot;
ComboBox1->HasButtons = Excomboboxlib_tlb::ExpandButtonEnum::exCustom;
ComboBox1->HasButtonsCustom[false] = 1;
ComboBox1->HasButtonsCustom[true] = 2;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child"));

ComboBox1->BeginUpdate();
ComboBox1->TreeColumnIndex = -1;
ComboBox1->SortOnClick = Excomboboxlib_tlb::SortOnClickEnum::exNoSort;
ComboBox1->Columns->Add(L"Numbers");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TVariant(1));
	var_Items->AddItem(TVariant(2));
	long h = var_Items->AddItem(TVariant("separator"));
	var_Items->set_SelectableItem(h,false);
	var_Items->set_ItemDivider(h,0);
	var_Items->set_ItemDividerLineAlignment(h,Excomboboxlib_tlb::DividerAlignmentEnum::DividerCenter);
	var_Items->set_ItemDividerLine(h,Excomboboxlib_tlb::DividerLineEnum::ThinLine);
	var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Excomboboxlib_tlb::AlignmentEnum::CenterAlignment);
	var_Items->AddItem(TVariant(3));
	var_Items->AddItem(TVariant(4));
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
ComboBox1->ScrollBySingleLine = true;
ComboBox1->Columns->Add(L"P1");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->InsertItem(h,TVariant(""),TVariant(""));
	var_Items->set_ItemDivider(h,0);
	var_Items->set_ItemDividerLineAlignment(h,Excomboboxlib_tlb::DividerAlignmentEnum::DividerCenter);
	var_Items->set_ItemHeight(h,2);
	var_Items->set_SelectableItem(h,false);
	var_Items->set_SortableItem(h,false);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->InsertItem(h,TVariant(""),TVariant(""));
	var_Items->set_ItemDivider(h,0);
	var_Items->set_ItemDividerLineAlignment(h,Excomboboxlib_tlb::DividerAlignmentEnum::DividerCenter);
	var_Items->set_ItemHeight(h,2);
	var_Items->set_SelectableItem(h,false);
	var_Items->set_SortableItem(h,false);
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Image");
	var_Column->SortType = Excomboboxlib_tlb::SortTypeEnum::exSortByImage;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_CellImage(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),3);
	var_Items->AddItem(TNoParam());
	var_Items->set_CellImage(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),1);
	var_Items->set_CellImage(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),2);
ComboBox1->Columns->get_Item(TVariant(0))->SortOrder = Excomboboxlib_tlb::SortOrderEnum::SortAscending;
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Check");
	var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->SortType = Excomboboxlib_tlb::SortTypeEnum::exSortByState;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TNoParam());
	var_Items->set_CellState(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),1);
	var_Items->set_CellState(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),1);
	var_Items->AddItem(TNoParam());
ComboBox1->Columns->get_Item(TVariant(0))->SortOrder = Excomboboxlib_tlb::SortOrderEnum::SortAscending;
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->HeaderHeight = 24;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = true;
	var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exFilterPatternTemplate,TVariant("*<%filter%>*"));
	var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exPattern;
	var_Column->Filter = L"1";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();

ComboBox1->MarkSearchColumn = false;
ComboBox1->TreeColumnIndex = -1;
ComboBox1->Columns->Add(L"C1");
ComboBox1->Columns->Add(L"C2");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Cell 1"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."));
	var_Items->set_CellSingleLine(TVariant(h),TVariant(1),Excomboboxlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
	h = var_Items->AddItem(TVariant("This is bit of text that's displayed on the entire item, divider."));
	var_Items->set_ItemDivider(h,0);
	var_Items->set_ItemDividerLine(h,Excomboboxlib_tlb::DividerLineEnum::EmptyLine);
	var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Excomboboxlib_tlb::AlignmentEnum::CenterAlignment);

ComboBox1->Columns->Add(L"Column")->DisplayFilterButton = true;
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAll] = L"";
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarBlanks] = L"";
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarNonBlanks] = L"";

ComboBox1->Columns->Add(L"Column 1")->HeaderStrikeOut = true;

ComboBox1->Columns->Add(L"Max 2 chars")->EditMaxLength = 2;
ComboBox1->AutoSearch = false;
ComboBox1->AutoComplete = false;

ComboBox1->ScrollBySingleLine = true;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exRowLines;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_ItemAllowSizing(var_Items->AddItem(TVariant("resizable item")),true);
	var_Items->AddItem(TVariant("not resizable item"));

ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesAtRoot;
ComboBox1->HasLines = Excomboboxlib_tlb::HierarchyLineEnum::exNoLine;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child"));

ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
ComboBox1->Columns->Add(L"Column")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellDrawPartsOrder,TVariant("caption,icon,check,icons,picture"));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Text"));
	var_Items->set_CellImage(TVariant(h),TVariant(0),1);

Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column 1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exBlanks;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Column 2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exBlanks;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Column 3");
	var_Column2->DisplayFilterButton = true;
	var_Column2->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exBlanks;
ComboBox1->FilterCriteria = L"%0 or not %1 and %2";
ComboBox1->ApplyFilter();

ComboBox1->HTMLPicture[L"pic1"] = TVariant("c:\\exontrol\\images\\zipdisk.gif");
ComboBox1->HeaderHeight = 48;
ComboBox1->Columns->Add(L"ColumnName")->HTMLCaption = L"<b>HTML</b> Column <img>pic1</img> Picture";

Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
	var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellDrawPartsOrder,TVariant("caption,check"));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_CellHasCheckBox(TVariant(var_Items->AddItem(TVariant("Caption 1"))),TVariant(0),true);
	var_Items->set_CellHasCheckBox(TVariant(var_Items->AddItem(TVariant("Caption 2"))),TVariant(0),true);

ComboBox1->Columns->Add(L"Number");
ComboBox1->Columns->Add(L"Abs")->ComputedField = L"abs(%0)";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TVariant("-1.98"));
	var_Items->AddItem(TVariant("0.99"));
	var_Items->AddItem(TVariant("1.23"));
	var_Items->AddItem(TVariant("2.34"));

ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
ComboBox1->Columns->Add(L"Column 1")->HTMLCaption = L"1<img>1</img> 2 <img>2</img>...";

ComboBox1->ScrollPartVisible[Excomboboxlib_tlb::ScrollBarEnum::exHScroll,Excomboboxlib_tlb::ScrollPartEnum::exLeftB1Part] = true;
ComboBox1->ScrollPartVisible[Excomboboxlib_tlb::ScrollBarEnum::exHScroll,Excomboboxlib_tlb::ScrollPartEnum::exLeftB2Part] = true;
ComboBox1->ScrollPartVisible[Excomboboxlib_tlb::ScrollBarEnum::exHScroll,Excomboboxlib_tlb::ScrollPartEnum::exRightB6Part] = true;
ComboBox1->ScrollPartVisible[Excomboboxlib_tlb::ScrollBarEnum::exHScroll,Excomboboxlib_tlb::ScrollPartEnum::exRightB5Part] = true;

ComboBox1->Columns->Add(L"A");
ComboBox1->Columns->Add(L"B");
ComboBox1->Columns->Add(L"(A+B)*1.19")->ComputedField = L"(%0 + %1) * 1.19";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant(1))),TVariant(1),TVariant(2));
Excomboboxlib_tlb::IItemsPtr var_Items1 = ComboBox1->Items;
	var_Items1->set_CellCaption(TVariant(var_Items1->AddItem(TVariant(10))),TVariant(1),TVariant(20));

ComboBox1->HTMLPicture[L"p1"] = TVariant("c:\\exontrol\\images\\zipdisk.gif");
ComboBox1->Columns->Add(L"C1");
ComboBox1->Columns->Add(L"C2");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Cell 1"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(" Button <img>p1</img> "));
	var_Items->set_CellCaptionFormat(TVariant(h),TVariant(1),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
	var_Items->set_CellHAlignment(TVariant(h),TVariant(1),Excomboboxlib_tlb::AlignmentEnum::RightAlignment);
	var_Items->set_CellHasButton(TVariant(h),TVariant(1),true);
	var_Items->set_ItemHeight(h,48);

ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
ComboBox1->Columns->Add(L"C1");
ComboBox1->Columns->Add(L"C2");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Cell 1"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(" Button <img>1</img> "));
	var_Items->set_CellCaptionFormat(TVariant(h),TVariant(1),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
	var_Items->set_CellHAlignment(TVariant(h),TVariant(1),Excomboboxlib_tlb::AlignmentEnum::RightAlignment);
	var_Items->set_CellHasButton(TVariant(h),TVariant(1),true);

ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
ComboBox1->Columns->Add(L"C1");
ComboBox1->Columns->Add(L"C2");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Cell 1"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(" <img>1</img> "));
	var_Items->set_CellCaptionFormat(TVariant(h),TVariant(1),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
	var_Items->set_CellHAlignment(TVariant(h),TVariant(1),Excomboboxlib_tlb::AlignmentEnum::RightAlignment);
	var_Items->set_CellHasButton(TVariant(h),TVariant(1),true);

ComboBox1->Columns->Add(L"Unsortable")->AllowSort = false;
ComboBox1->Columns->Add(L"Sortable");

ComboBox1->BeginUpdate();
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->SingleSel = false;
ComboBox1->SingleEdit = true;
ComboBox1->LabelColumnIndex = 0;
ComboBox1->SelBackColor = RGB(51,153,255);
ComboBox1->SelForeColor = RGB(255,255,255);
ComboBox1->LabelText = L"<bgcolor=3399FF><fgcolor=FFFFFF> %c </fgcolor></bgcolor>";
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
	var_Columns->Add(L"Column");
	var_Columns->Add(L"Sub-Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 1"))),TVariant(1),TVariant("SubItem 1.1"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 2"))),TVariant(1),TVariant("SubItem 2.1"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 3"))),TVariant(1),TVariant("SubItem 3.1"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 4"))),TVariant(1),TVariant("SubItem 4.1"));
	var_Items->set_SelectItem(var_Items->get_ItemByIndex(1),true);
	var_Items->set_SelectItem(var_Items->get_ItemByIndex(3),true);
ComboBox1->EndUpdate();

ComboBox1->Columns->Add(L"Number");
ComboBox1->Columns->Add(L"Date")->ComputedField = L"date(dbl(%0))";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TVariant("-1.98"));
	var_Items->AddItem(TVariant("30000.99"));
	var_Items->AddItem(TVariant("3561.23"));
	var_Items->AddItem(TVariant("1232.34"));

ComboBox1->Columns->Add(L"Number");
ComboBox1->Columns->Add(L"Number + 2")->ComputedField = L"dbl(%0)+2";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TVariant("-1.98"));
	var_Items->AddItem(TVariant("0.99"));
	var_Items->AddItem(TVariant("1.23"));
	var_Items->AddItem(TVariant("2.34"));

ComboBox1->FormatAnchor[false] = L"<b><u><fgcolor=880000> </fgcolor></u></b>";
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_CellCaptionFormat(TVariant(var_Items->AddItem(TVariant("Just an <a1>anchor</a> element ..."))),TVariant(0),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
Excomboboxlib_tlb::IItemsPtr var_Items1 = ComboBox1->Items;
	var_Items1->set_CellCaptionFormat(TVariant(var_Items1->AddItem(TVariant("Just another <a2>anchor</a> element ..."))),TVariant(0),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
ComboBox1->Items->AddItem(TVariant("next item"));

ComboBox1->FormatAnchor[true] = L"<b><u><fgcolor=FF0000> </fgcolor></u></b>";
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_CellCaptionFormat(TVariant(var_Items->AddItem(TVariant("Just an <a1>anchor</a> element ..."))),TVariant(0),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
Excomboboxlib_tlb::IItemsPtr var_Items1 = ComboBox1->Items;
	var_Items1->set_CellCaptionFormat(TVariant(var_Items1->AddItem(TVariant("Just another <a2>anchor</a> element ..."))),TVariant(0),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);

ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesAtRoot;
ComboBox1->HasLines = Excomboboxlib_tlb::HierarchyLineEnum::exThinLine;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child"));

ComboBox1->MarkSearchColumn = false;
ComboBox1->TreeColumnIndex = -1;
ComboBox1->ScrollBySingleLine = false;
ComboBox1->Columns->Add(L"C1");
ComboBox1->Columns->Add(L"C2");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Cell 1"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."));
	var_Items->set_CellSingleLine(TVariant(h),TVariant(1),Excomboboxlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
	h = var_Items->AddItem(TVariant("This is bit of text that's displayed on the entire item, divider."));
	var_Items->set_ItemDivider(h,0);
	var_Items->set_ItemDividerLine(h,Excomboboxlib_tlb::DividerLineEnum::DoubleDotLine);
	var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Excomboboxlib_tlb::AlignmentEnum::CenterAlignment);
	var_Items->set_ItemHeight(h,24);

ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
ComboBox1->Columns->Add(L"Column")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellDrawPartsOrder,TVariant("caption,check,icon,icons,picture"));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Text"));
	var_Items->set_CellImage(TVariant(h),TVariant(0),1);
	var_Items->set_CellHasCheckBox(TVariant(h),TVariant(0),true);

ComboBox1->ScrollOrderParts[Excomboboxlib_tlb::ScrollBarEnum::exHScroll] = L"t,l,r";
ComboBox1->ScrollOrderParts[Excomboboxlib_tlb::ScrollBarEnum::exVScroll] = L"t,l,r";

Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column 1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exBlanks;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Column 2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exNonBlanks;
ComboBox1->FilterCriteria = L"%0 or %1";
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarOr] = L" | ";
ComboBox1->ApplyFilter();

Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column 1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exBlanks;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Column 2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exNonBlanks;
ComboBox1->FilterCriteria = L"not %0 or %1";
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarNot] = L" ! ";
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarIsNonBlank] = L" ! IsBlank";
ComboBox1->ApplyFilter();

ComboBox1->HeaderHeight = 32;

ComboBox1->ToolTipDelay = 1;
ComboBox1->ToolTipWidth = 364;
ComboBox1->Columns->Add(L"tootip")->ToolTip = L"<fgcolor=FF0000>this is a tooltip assigned to a column</fgcolor>";

ComboBox1->ToolTipDelay = 1;
ComboBox1->ToolTipWidth = 364;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exToolTipForeColor] = RGB(255,0,0);
ComboBox1->Columns->Add(L"tootip")->ToolTip = L"this is a tooltip assigned to a column";

ComboBox1->HeaderHeight = 34;
ComboBox1->Columns->Add(L"Column 1")->HTMLCaption = L"<font Tahoma;14>Column</font> 1";

ComboBox1->ToolTipDelay = 1;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		OLE Automation

	TypeLib: stdole2.tlb

	to define the namespace: Stdole_tlb
*/
//#include "STDOLE_TLB.h"
Stdole_tlb::FontPtr var_StdFont = ComboBox1->ToolTipFont;
	var_StdFont->Name = L"Tahoma";
	var_StdFont->Size = TVariant(long(14));
ComboBox1->ToolTipWidth = 364;
ComboBox1->Columns->Add(L"tootip")->ToolTip = L"this is a tooltip assigned to a column";

ComboBox1->ToolTipDelay = 1;
ComboBox1->ToolTipWidth = 364;
ComboBox1->Columns->Add(L"tootip")->ToolTip = L"<br><font Tahoma;14>this</font> is a tooltip assigned to a column<br>";

ComboBox1->ToolTipDelay = 1;
ComboBox1->ToolTipWidth = 364;
ComboBox1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exToolTipAppearance] = 0x1000000;
ComboBox1->Columns->Add(L"tootip")->ToolTip = L"this is a tooltip assigned to a column";

ComboBox1->ToolTipDelay = 1;
ComboBox1->ToolTipWidth = 364;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exToolTipBackColor] = RGB(255,0,0);
ComboBox1->Columns->Add(L"tootip")->ToolTip = L"this is a tooltip assigned to a column";

ComboBox1->ConditionalFormats->Add(L"%0 contains 'hi'",TNoParam())->BackColor = RGB(255,0,0);
ComboBox1->Columns->Add(L"");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Root"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Chld 3"));
	var_Items->set_ExpandItem(h,true);

Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column 1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exBlanks;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Column 2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exNonBlanks;
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = L" & ";
ComboBox1->ApplyFilter();

Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterDate = true;
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarDateTodayCaption] = L"Azi";
ComboBox1->ApplyFilter();

Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterDate = true;
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarDate] = L"Range";
ComboBox1->ApplyFilter();

ComboBox1->BeginUpdate();
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exRowLines;
ComboBox1->ColumnAutoResize = false;
ComboBox1->ScrollBySingleLine = true;
ComboBox1->Columns->Add(L"Default")->Width = 128;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_CellSingleLine(TVariant(var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."))),TVariant(0),Excomboboxlib_tlb::CellSingleLineEnum::exCaptionBreakWrap);
	var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."));
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exRowLines;
ComboBox1->ColumnAutoResize = false;
ComboBox1->ScrollBySingleLine = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Default");
	var_Column->Width = 128;
	var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."));
	var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."));
ComboBox1->EndUpdate();

ComboBox1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
ComboBox1->FilterBarBackColor = 0x1000000;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exBlanks;
ComboBox1->ApplyFilter();

ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Childs");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->set_SortableItem(h,false);
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->set_SortableItem(h,false);
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
ComboBox1->EndUpdate();

ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->set_ItemHasChildren(var_Items->AddItem(TVariant("parent item with no child items")),true);
	var_Items->AddItem(TVariant("next item"));

ComboBox1->Columns->Add(L"Sort")->DefaultSortOrder = true;

ComboBox1->Columns->Add(L"desc")->SortType = Excomboboxlib_tlb::SortTypeEnum::SortTime;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TVariant("11:00"));
	var_Items->AddItem(TVariant("10:10"));
	var_Items->AddItem(TVariant("12:12"));
	var_Items->SortChildren(0,TVariant(0),false);

ComboBox1->Columns->Add(L"desc")->SortType = Excomboboxlib_tlb::SortTypeEnum::SortDate;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TVariant("1/1/2001"));
	var_Items->AddItem(TVariant("1/2/2002"));
	var_Items->AddItem(TVariant("1/3/2003"));
	var_Items->SortChildren(0,TVariant(0),false);

ComboBox1->Columns->Add(L"desc")->SortType = Excomboboxlib_tlb::SortTypeEnum::SortDateTime;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TVariant("1/1/2001 11:00"));
	var_Items->AddItem(TVariant("1/1/2001 10:10"));
	var_Items->AddItem(TVariant("1/3/2003"));
	var_Items->SortChildren(0,TVariant(0),false);

ComboBox1->BeginUpdate();
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->HeaderHeight = 24;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->ConditionalFormats->Add(L"%CX0",TNoParam())->Bold = true;
ComboBox1->Columns->Add(L"Description");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2")),TNoParam(),TVariant("Sub-Child 2"));
	var_Items->set_CellState(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"))),TVariant(0),1);
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
ComboBox1->EndUpdate();

// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::ComboBox1MouseMove(TObject *Sender, short   Button, short   Shift, int   X, int   Y)
{
	ComboBox1->ShowToolTip(L"new content",TVariant(""),TNoParam(),TVariant("+8"),TVariant("+8"));
}

ComboBox1->ToolTipMargin = L"16,8";

ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExComboBox\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->set_Value(TVariant(10248));
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExComboBox\\Sample\\Access\\sample.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->set_Value(TVariant(10248));
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADODB.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExComboBox\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->set_Value(TVariant(10248));
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADODB.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExComboBox\\Sample\\Access\\sample.accdb"),Adodb_tlb::CursorTypeEnum::adOpenKeyset,Adodb_tlb::LockTypeEnum::adLockReadOnly,0);
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->set_Value(TVariant(10248));
ComboBox1->EndUpdate();

ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = true;
ComboBox1->DefaultItemHeight = 20;
ComboBox1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m") +
	"Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" +
	"hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" +
	"6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" +
	"JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" +
	"0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA=="));
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Default");
	var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->PartialCheck = true;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Position");
	var_Column1->FormatColumn = L"1 rindex ``";
	var_Column1->Visible = false;
Excomboboxlib_tlb::IConditionalFormatPtr var_ConditionalFormat = ComboBox1->ConditionalFormats->Add(L"%C1 mod 2",TNoParam());
	var_ConditionalFormat->BackColor = 0x1000000;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
	var_Items->AddItem(TVariant("Item 1"));
	var_Items->AddItem(TVariant("Item 2"));
	var_Items->AddItem(TVariant("Item 3"));
	var_Items->AddItem(TVariant("Item 4"));
ComboBox1->EndUpdate();